home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  542b  |  27 lines
  1. 2000 rem unterprogramm 2
  2. 2001 rem schreiben eines eintrages in
  3. 2002 rem das directory (30 bytes !!!)
  4. 2003 rem uebergabeparameter:
  5. 2004 rem mm=nummer des eintrages der
  6. 2005 rem    geschrieben werden soll
  7. 2006 rem dd$=directoryeintrag
  8. 2007 :
  9. 2008 :
  10. 2009 :
  11. 2010 open 15,8,15,"i":open8,8,8,"#"
  12. 2020 xx=int((mm-1)/8)
  13. 2030 print#15,"u1 8 0 18 0"
  14. 2040 forzz=1toxx+1
  15. 2050 print#15,"b-p 8 0"
  16. 2060 get#8,t$:tt=asc(t$+chr$(0))
  17. 2070 get#8,s$:ss=asc(s$+chr$(0))
  18. 2080 if tt=0 then 2150
  19. 2090 print#15,"u1 8 0";tt;ss
  20. 2100 nextzz
  21. 2110 pp=mm-(xx*8):pp=(pp-1)*32+2
  22. 2120 print#15,"b-p 8";pp
  23. 2130 print#8,dd$;
  24. 2140 print#15,"u2 8 0";tt;ss
  25. 2150 close 8:close 15
  26. 2160 return
  27.